<%
'WAP模块
Class IndexAction_Wap

	Private Sub Class_Initialize()
		On Error Resume Next
		'-- 视图设置
		'App.View.LayerOut = False
		'App.View.Locate = True
		Response.Charset = App.CharSet
		On Error Goto 0
	End Sub

	Private Sub Class_Terminate()
		'..
	End Sub

	'View: index.asp?m=wap&c=index&a=index
    Public Sub index()
		App.View.Display("index.html")
    End Sub

    Public Sub [empty]()
		App.Out.Print "Empty Action"
    End Sub

End Class
%>